home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-9.10-netbook-remix-PL.iso / casper / filesystem.squashfs / usr / share / perl5 / Net / HTTPS.pm < prev   
Encoding:
Perl POD Document  |  2009-06-13  |  1.2 KB  |  60 lines
  1. package Net::HTTPS;
  2.  
  3. use strict;
  4. use vars qw($VERSION $SSL_SOCKET_CLASS @ISA);
  5.  
  6. $VERSION = "5.819";
  7.  
  8. # Figure out which SSL implementation to use
  9. if ($SSL_SOCKET_CLASS) {
  10.     # somebody already set it
  11. }
  12. elsif ($Net::SSL::VERSION) {
  13.     $SSL_SOCKET_CLASS = "Net::SSL";
  14. }
  15. elsif ($IO::Socket::SSL::VERSION) {
  16.     $SSL_SOCKET_CLASS = "IO::Socket::SSL"; # it was already loaded
  17. }
  18. else {
  19.     eval { require Net::SSL; };     # from Crypt-SSLeay
  20.     if ($@) {
  21.     my $old_errsv = $@;
  22.     eval {
  23.         require IO::Socket::SSL;
  24.     };
  25.     if ($@) {
  26.         $old_errsv =~ s/\s\(\@INC contains:.*\)/)/g;
  27.         die $old_errsv . $@;
  28.     }
  29.     $SSL_SOCKET_CLASS = "IO::Socket::SSL";
  30.     }
  31.     else {
  32.     $SSL_SOCKET_CLASS = "Net::SSL";
  33.     }
  34. }
  35.  
  36. require Net::HTTP::Methods;
  37.  
  38. @ISA=($SSL_SOCKET_CLASS, 'Net::HTTP::Methods');
  39.  
  40. sub configure {
  41.     my($self, $cnf) = @_;
  42.     $self->http_configure($cnf);
  43. }
  44.  
  45. sub http_connect {
  46.     my($self, $cnf) = @_;
  47.     $self->SUPER::configure($cnf);
  48. }
  49.  
  50. sub http_default_port {
  51.     443;
  52. }
  53.  
  54. # The underlying SSLeay classes fails to work if the socket is
  55. # placed in non-blocking mode.  This override of the blocking
  56. # method makes sure it stays the way it was created.
  57. sub blocking { }  # noop
  58.  
  59. 1;
  60.